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ABSTRACT:  This  report  forms  a  preliminary  User's  Manual  for  DIAL 

(Direct  Interactive  Algebraic  Language),  a  PL/I-like  algebraic 
language,  designed  for  interactive  use.  It  is  implemented  by 
the  DIAL  Programming  System,  and  provides  convenience,  speed, 
and  power  in  performance  of  symbolic  algebraic  operations. 

Special  algebraic  and  list  processing  functions  are  provided. 

The  system  features  automatic  paging  of  data,  dynamic  allocation 
of  off-line  program  storage,  multi-level  interrupts,  and  optional 
batch  mode  of  operation. 
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CHAPTER  1  OVERVIEW 


1.1  Basic  DIAL  Design 

Algebraic  languages  are  designed  to  provide  power  for  operations 
upon  algebraic  expressions.  The  most  widely  known  such  language  is  FORMAC 
which  is  a  powerful  pre-processor  for  a  high  level  compiler  (PL/1  or 
FORTRAN) ,  and  which  produces  source  code  for  compilation  and  execution 
as  a  batch  program. 

DIAL  differs  from  FORMAC-like  processors  in  the  following  way: 

(1)  It  is  an  entire  programming  system,  handling  compilation, 
execution,  and  interface  with  peripheral  devices,  program  storage, 
data  management,  etc., 

(2)  It  is  interactive, i .  e.  it  can  be  operated  under  direct  user 
control  through  a  display  device  and  console,  with  user  interrupt 
facility, 

(3)  It  supports  several  new  algebraic  features  for  inspection  and 
manipulation  of  algebraic  expressions. 

The  philosophy  from  which  DIAL  was  conceived  centres  around  speed 
of  operation,  interactive  user  convenience,  clarity  and  power  of  the 
language,  and  convenience  of  data  management  and  program  storage  fea¬ 
tures.  In  addition  every  attempt  was  made  to  maintain  a  clean,  high- 
level  internal  structure,  making  the  system  easy  to  maintain  and  modify. 


1.2  General  Features  of  DIAL 

DIAL  expressions  are  in  general  represented  internally  in  list  struc¬ 
ture  form,  and  algorithms  exist  to  effect  transformation  from  such  a  form 
into  the  standard  printed  representation,  and  vice  versa.  In  the  DIAL 
system,  data  management  is  handled  automatically  at  execution  time,  and  a 
virtual  memory  (paging)  feature  effectively  grants  to  the  user  an  arbitra¬ 
rily  large  data  area. 

The  DIAL  language,  discussed  in  Chapter  3,  is  a  PL/l-like  language 
with  constructs  particularly  designed  for  algebraic  and  interactive  use. 
DIAL  variables  are  declared  implicitly,  and  have  a  default  scope  of  global 
They  may  be  arbitrarily  subscripted.  Implicit  procedure  calls  are  a  fea¬ 
ture  of  the  language,  and  procedures  are  fully  recursive.  Both  integer 
and  rational  arithmetic  are  supported. 

Algebraic  expressions  are  automatically  simplified  by  one  or  more 
levels  of  application  of  the  algebraic  laws  governing  manipulation  of  poly 
nomials  with  rational  coefficients.  This  simplification  can  be  prevented, 
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however,  if  the  user  wishes  to  use  DIAL  as  an  abstract  list  processor. 
Special  functions  are  provided  for  such  use. 

DIAL  programs  are  compiled  into  blocks  of  proto- code  by  the 
compiler.  The  resulting  program  is  itself  in  linked  list  form,  so  that 
additions  and  deletions  can  be  effected  by  simple  pointer  readjustment, 
obviating  the  necessity  for  extensive  recompilation.  Even  though  the 
compiled  program  has  a  block  structure,  it  is  necessary  to  (re) compile 
only  those  statements  being  added  to  it  or  modified,  no  matter  what 
their  logical  sequence  in  the  program. 

The  compiled  proto-code  is  executed  by  the  DIAL  interpreter.  This  is 
effectively  a  stack  machine,  in  that  temporary  values  (pointers  to  data) 
are  stored  on  a  run-time  stack,  and  are  not  directly  referenced  by  the 
code  itself.  The  code  does  reference  permanent  (assigned)  values,  through 
indices  into  the  symbol  table,  which  remains  in  core  at  execution  time. 

At  the  user's  option,  DIAL  statements  may  be  executed  immediately  upon 
compilation,  or  stored  for  future  use.  The  directly  executable  statements 
provide  the  means  to  invoke  selective  execution  of  the  stored  program,  or 
to  perform  direct  calculations  in  "desk  calculator"  mode. 

The  DIAL  processor  is  made  up  of  three  components,  namely  the  compiler, 
the  interpreter  and  the  monitor,  which  interfaces  the  system  with  peripheral 
devices . 

The  interactive  device  for  the  DIAL  system  is  typically  a  text  display 
unit  with  programmer  interrupt  facility.  The  current  implementation  uses 
an  IBM  2250  graphics  display  device.  The  programmer,  sitting  at  the  device 
console,  controls  the  input  to  and  output  from  the  DIAL  processor  through 
input  of  DIAL  instructions.  He  has  at  his  command  a  user-controlled,  multi¬ 
level  interrupt  system  for  instant  error  recovery,  for  use  if  automatic 
recovery  routines  fail.  These  routines,  both  automatic  and  user-initiated, 
suspend  current  operations  and  activate  the  display  device  console  for  input 
to  the  DIAL  compiler. 

The  DIAL  system  is  based  upon  the  XPL  Translator  Writing  System,  as 
developed  by  McKeeman,  Homing  and  Wortman  at  Stanford  in  1967,  but  it  uses 
the  LALR  parsing  table  generator  written  by  W.  Lalonde  of  the  University  of 
Toronto  in  1970. 
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CHAPTER  2  THE  BASIC  DIAL  SYSTEM 

2.1  Data  Elements  and  Expressions 

The  primitive  units  (data  nodes)  of  DIAL  variables  are  integers  and 
atoms .  The  latter  are  names  which  do  not  reference  other  expressions, 
but  stand  for  themselves.  Such  nodes  can  be  connected  through  the 
operators  plus,  multiply,  divide  and  exponent  (+,*,/,**),  to  form  expression 
trees.  For  example  the  expression  A-B*C  is  represented  as 


Note  that  minus  operators  do  not  exist:  A-B*C  is  A+((-l)*A*B 

This  tree  can  be  easily  scanned  to  restore  the  character  string  'A-B*C' . 

In  addition  to  the  binary  operators,  certain  function  operators  exist 
and  still  others  may  be  defined  by  the  user. 


e.g.  SIN(2A) 


Note  that  rational  numbers  can  be  expressed  as  division  of  integers: 
3/7  = 
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2.2  Atomic  Variables  and  Assignments 

Data  variables  to  which  no  assignments  have  been  made,  are  said  to 
bear  their  atomic ,  i.e.  alphanumeric  value,  and  in  the  case  of  a  non- 
subscripted  variable,  this  is  representable  by  a  single  atom.  A  sub¬ 
scripted  variable  appears  as  a  function  expression  of  an  SV  (subscripted 
variable)  node  . 

e.g.  A(5, 2,B)  = 


When  algebraic  expressions  are  evaluated,  the  value  of  each  variable 
scanned  is  determined.  For  a  previously  unassigned  variable  this  is  the 
atomic  value,  as  stated  above.  For  example  if  5  has  been  assigned  to 
variable  A,  and  there  have  been  no  assignments  to  B,  then  the  assignment 
C  =  A+B  would  give  to  C  the  value  C  =  B+5  = 


No  subsequent  assignment  to  B  will  affect  this  value  of  C. 


2.3  The  DIAL  Execution  Cycle 

Unlike  a  batch  processor,  an  interactive  system  must  provide  for 
alternate  compilation  and  execution,  under  user  control.  In  particular, 
it  must  be  possible  to  compile  arbitrary  collections  of  statements,  before 
switching  to  interpretive  mode  (execution) .  The  syntax  of  a  statement 
determines  whether  it  is  an  indirect  statement,  for  future  execution,  or 
a  direct  statement,  for  immediate  execution  once  compiled. 

Indirect  statements  all  belong  to  Procedures ,  and  are  labelled,  i.e. 
they  are  headed  by  a  label  consisting  of  a  procedure  identifier,  a  period, 
and  a  statement  number,  e.g.  PRQC.50.  An  indirect  statement  is  not  generally 
executed  until  its  procedure  has  been  called . 


'  f  ' 
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Execution  of  indirect  programs  commences  when  a  procedure  is  called 
by  a  direct  (unlabelled)  statement.  Procedure  statements  are  executed  in 
numerical  order  of  their  labels,  rather  than  in  the  order  of  their  entry. 

Procedures  are  potentially  recursive,  i.e.  procedure  statements  may 
call  any  procedure  including  the  current  one.  They  may  pass  to  the  called 
procedures  parameter  lists  of  arbitrary  size,  and  may  return  to  the  calling 
procedure  similar  lists.  Return  is  effected  under  explicit  instruction, 
or  upon  completion  of  execution  of  the  instruction  sequence  of  the  procedure. 

Return  from  a  direct  statement  procedure  call,  in  fact  completion  of 
any  direct  statement,  results  in  termination  of  execution,  and  reactivation 
of  the  compiler.  The  alternation  between  compiler  and  interpreter  acti¬ 
vation  may  continue  as  long  as  desired. 


2.4  Input  and  Output 

DIAL  output  consists  of  statements  (source  code)  and  values  of 
variables.  The  latter  always  take  the  form  of  equalities: 

2 

A  =  B  +  C,  D  =  A  etc. 

*********  ****** 


Optionally,  the  output  can  be  made  to  conform  exactly  with  the  syntax 
of  DIAL  assignment  statements.  The  user  can  direct  output  selectively  to 
printer  or  card  reader.  In  addition  he  can  save  programs  and  data  on 
direct  access  (disk)  storage  devices,  through  use  of  the  SAVE/RESAVE  state¬ 
ments  . 

Input  to  the  compiler  commences  from  the  card  reader  file.  It  will 
be  requested  from  the  display  device  console  (except  when  the  NODISPLAY 
option  is  set)  upon  exhaustion  of  the  card  reader  file,  or  upon  execution 
of  the  DIAL  command  SET  NOCARDREAD;  subsequent  execution  of  SET  CARDREAD; 
will  re-route  input  requests  back  to  the  card  reader. 

DIAL  programs  and  data  stored  on  disk  are  invariably  in  a  source  code 
form  compatible  with  the  DIAL  compiler,  and  may  be  treated  as  direct  input 
by  the  user, through  use  of  the  LOAD  statement. 


2.5  Program  Editing 

Programs  may  be  edited  in  two  ways: 

(a)  Through  use  of  the  DELETE  statement.  Whole  procedures,  individual 
statements  and  data  values  may  be  deleted  through  this  construct. 

(b)  By  simple  replacement.  Input  of  a  procedure  statement  will  replace 
any  existing  statement  with  identical  label.  A  statement  can  be 
effectively  deleted  by  entry  of  a  null  statement  e.g.  PROC. 80; . 


- 
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2.6  Interrupts 

There  are  three  types  of  interrupts : 

(1)  automatic  error  recovery  interrupts 

(2)  DIAL  program  interrupts 

(3)  Asynchronous  user  interrupts 

In  all  three  cases,  execution  is  suspended  and  the  display  device  console 
becomes  active  for  input. 

Interrupts  may  be  nested,  and  they  may  be  resumed  from,  i.e.  execution 
can  be  caused  to  re-commence  exactly  at  the  point  of  interruption. 
Optionally  the  interrupt  nesting  can  be  reset,  which  re-initializes  the 
interrupt  stack. 


2.7  A  Session  with  DIAL 

This  section  illustrates  the  interactive  operation  of  the  DIAL  system. 
Figure  1  shows  the  relevant  areas  on  the  display  tube  of  the  2250  Graphics 
Device: 


Text 

t 

r 

> 

Message 

Input 

j 

The  tube  face  is  divided  into  three  areas : 

(1)  Text  area.  (47  lines)  Output  to  the  2250  is  displayed  here  on  a 
wraparound  basis. 

(2)  Message  area.  (2  lines)  Permanent  messages  describe  operation  of 
the  interrupt  features,  using  program  interrupt  function  keys,  and 
status  messages  give  current  mode  of  operation  of  the  DIAL  system. 
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(3)  Input  area.  (1  line)  Here  input  to  the  compiler  from  the  2250 
console  is  duplexed.  The  input  line  is  entered  between  vertical 
bars  which  define  line  length.  A  semi-colon  is  pre-entered  by  the 
DIAL  processor  in  the  rightmost  input  area  column,  precluding  the 
necessity  (or  correctness)  of  completing  the  statement  entered  with 
its  semi-colon,  as  required  by  the  DIAL  grammar. 

Sample  Program: 

THE  DIAL  PROGRAMMING  SYSTEM 
UNIVERSITY  OF  TORONTO 
A.  C.  M.  BROWN 


|  CHEB.O  'CHEBYSHEV  POLYNOMIALS'; 

|  CHEB.10  PARAMETER  INDEX,  SYMBOL; 

|  CHEB.20  IF  INDEX=0  THEN  RETURN  1; 

|  CHEB.30  IF  INDEX=1  THEN  RETURN  SYMBOL; 

|  CHEB.40  RETURN  2*SYMB0L*CHEB (INDEX-1 , SYMBOL) -CHEB (INDEX-2, SYMBOL) ; 
|  T=CHEB (10, Z) ;  PUT  T; 

T  =  512Z10  -  1280Z8  +  1120Z6  -  400Z4  +  50Z2  -  1 
******************************************************** 

|  SAVE  AS  CHEBYSHEV  ALL  PROCEDURES,  T; 

|  DELETE  ALL; 

|  A=2 ; 

I  A (A) =1 ; 

|  A(1 , 2, 3) = (X+Y) **5; 

|  PUT  A(A(2) ,A, A(2) +2) ; 

A(1 ,2,3)  =  X5  +  5X4Y  +  10X3Y2  +  10X2Y3  +  5X  Y4  +  Y5 
*************************************************** 

|  CALLUP. 50  DELETE  ALL; 

|  CALLUP. 100  LOAD  CHEBYSHEV, 

***  ERROR,  INVALID  SYNTAX  AT  STATEMENT  CALLUP.  100 
,  MAY  NOT  FOLLOW  <PR0G  HD>  <IND  PROG>  LOAD  <IDENTIFIER> 


' 


■  -  >:  •  o  n  riw  1  “’Hi 


CALLUP. 100  LOAD  CHUBBYSHIV  ; 
CALL  CALLUP; 
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***  ERROR,  FILE  CANNOT  BE  OPENED,  AT  STATEMENT  CALLUP. 100 

CALLUP. 100  LOAD  CHEBYSHEV; 

CALL  CALLUP; 

PUT  CHEB (3) ; 

CHEB (3)  =  4Z3  -  3Z 
****************** 

T  =  REPLACE  (  IN  CHEB (3)  ,  Z  BY  X+Y,  THEN  Y  BY  R  )  ; 

PUT  T; 

T  =  4R3  +  12R2X  +  12R  X2  -  3R  +  4X3  -  3X 
**************************************** 

PUT  DERIV(T,R) ; 

DERIV(T,R)  =  12R2  +  24R  X  +  12X2  -  3 
************************************ 

SIN. 100  PARAMETER  A; 

SIN. 200  LOCAL  X,Y  ; 

SIN. 300  IF  A=  ?X+?Y  THEN  RETURN  SIN(X) *COS (Y) +COS (X) *SIN(Y) ; 

SIN. 400  IF  A=?X*  ?  THEN  IF  TYPE (X) =INTEGER  THEN  DO; 

SIN. 500  IF  X<0  THEN  RETURN  -SIN(-A); 

SIN. 600  IF  TYPE (X/2) =INTEGER  THEN  RETURN  2*SIN(A/2) *COS (A/2) ; 

SIN. 700  END; 

SIN. 800  RETURN  ATOMIZE  (SIN (A)); 

COS. 100  PARAMETER  A; 

COS. 200  LOCAL  X,Y; 

COS. 300  IF  A=?X+  ?Y  THEN  RETURN  COS (X) *COS (Y) -SIN(X) *SIN(Y) ; 

COS. 400  IF  A=?X*?  THEN  IF  TYPE (X) = INTEGER  THEN  DO; 

COS. 500  IF  X<0  THEN  RETURN  COS(-A); 

COS. 600  IF  TYPE  (X/2)  =INTEGER  THEN  RETURN  1  -  2  *  SIN(A/2)**2 

COS. 700  END; 

COS. 800  RETURN  ATOMIZE  (COS (A)); 
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|  SET  NOCARDREAD; 

|  I  =  SIN(-4*A) ;  'ENTERED  FROM  2250  CONSOLE' 

|  PUT  I; 

I  =  8SIN3(A)  COS (A)  -  4SIN (A)  COS (A) 
************************************ 

|  SET  TERMINATE; 


. 
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CHAPTER  3  DIAL  -  SYNTAX  and  SEMANTICS 
3.1  The  DIAL  Grammar 


<ASSIGN> 

: :  = 

< VARIABLE  GROUP>  =  <EXPR  GROUP> 

<ITER  STEP> 

: :  = 

BY  <EXPR> 

<ITER  CNTL> 

;  ;  = 

TO  <EXPR>  |  TO  <EXPR>  <ITER  STEP> 

<FOR  EL> 

;  ;  = 

FOR  <ASSIGN>  <ITER  CNTL> 

<VARIABLE> 

: :  = 

<IDENTIFIER>  |  <IDENTIFIER>  (  <EXPR  GROUP>  ) 

< VARIABLE  GROUP > 

;  ;  = 

<VARIABLE>  |  <VARIABLE  GROUP>  ,  <VARIABLE> 

<EXPR  GROUP> 

: :  = 

<EXPR>  |  <EXPR  GROUP>  ,  <EXPR> 

<BY  GROUP> 

: :  = 

<EXPR>  BY  <EXPR> 

<THEN  BY  GROUP > 

:  :  = 

<BY  GROUP>  |  <THEN  BY  GROUP>  ,  THEN  <BY  GROUP> 

<FCTN  PRIM> 

REPLACE  (  IN  <EXPR>  ,  <THEN  BY  GROUP>  ) 

|  DERIV  (  <EXPR>  BY  <EXPR>  )  |  OPERAND  (  <EXPR> 
<EXPR>  )  ATOMIZE  (  <VARIABLE>  )  |  <FCTN  ID> 

(  <EXPR>  ) 

<PRIMARY> 

•  •  _ 

•  • 

<NUMBER>  |  <VARIABLE>  |  (  <EXPR>  )  |  <FCTN  PRIM> 

|  ?  |  ?  <VARIABLE> 

<FACTOR> 

: :  = 

<PRIMARY>  |  <FACTOR>  **  <PRIMARY> 

<TERM> 

;  ;  = 

< FACTO R>  |  <TERM>  *  <FACTOR>  |  <TERM>  /  <FACTOR> 

<EXPR> 

:  :  = 

<TERM>  |  +  <TERM>  |  -  <TERM>  |  <EXPR>  +  <TERM> 

|  <EXPR>  -  <TERM> 

<OPTION  LIST> 

:  :  = 

SET  <IDENTIFIER>  |  <OPTION  LIST>  ,  <IDENTIFIER> 

<RELOP> 

: :  = 

ii 

i 

ii 

A 

A 

II 

V 

V 

II 

<IF  CLAUSE > 

: :  = 

IF  <EXPR>  <RELOP>  <EXPR> 

<ELSE  HD> 

;  ;  = 

ELSE 

<CL0SED  ST> 

;  ;  = 

<IF  CLAUSE >  THEN  <CLOSED  ST>  |  <ASSIGN>  ; 

GO  TO  <REFERENCE>  ;  |  DO  ;  |  DO  <ASSIGN>  <ITER  CNTL>  ; 
<FOR  EL>  :  <CL0SED  ST>  |  <OPTION  LIST>  ;  |  CALL 
<PRIMARY>  ;  |  PARAMETER  <VARIABLE  GROUP>  ;  |  LOCAL 
<VARIABLE  GROUP>  ;  |  INTERRUPT  ;  |  RETURN  <EXPR  GROUP > 

|  RETURN  ;  |  GET  <VARIABLE  GROUP>  ;  |  <PUT  LIST>  ; 

|  LOAD  <IDENTIFIER>  ;  |  <DISK  PUT  HD>  <REF  ID>  ; 

|  <DELETE  LIST>  ;  |  <STRING>  ;  |  ;  |  PROCEDURE  ID>  . 
<CLOSED  ST> 


. 
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PROCEDURE  ID> 
<STATEMENT  NO> 
<REFERENCE> 
<LABEL> 

<REF  ID> 
<REFER> 

<PUT  LIST  EL> 
<PUT  LIST> 
<SAVENAME> 
<DISK  PUT  HD> 

< DELETE  ID> 
<DELETE  LIST> 
<IND  ST> 

<IND  PROG> 
<SUBPROGRAM> 
<PROG  HD> 
<PROGRAM> 


=  <IDENTIFIER> 

=  <PROCEDURE  ID>  .  <NUMBER> 

=  < STATEMENT  NO> 

=  < STATEMENT  NO> 

=  <REFER>  |  <EXPR> 

=  PROCEDURE  <PROCEDURE  ID>  |  <REFERENCE> 

|  ALL  PROCEDURES  |  ALL  VALUES  |  ALL 
=  <REF  ID>  |  <STRING> 

=  PUT  <PUT  LIST  EL>  |  <PUT  LIST>  ,  <PUT  LIST  EL> 

=  SAVE  AS  <IDENTIFIER>  |  RESAVE  AS  <IDENTIFIER> 

=  <SAVENAME>  <REF  ID>  |  <DISK  PUT  HD>  ,  <REF  ID> 

=  <REFER>  |  <VARIABLE> 

=  DELETE  < DELETE  ID>  |  < DELETE  LIST>  ,  <DE LETE  ID> 

=  <LABEL>  <CLOSED  ST>  |  <LABEL>  <ELSE  HD>  <CLOSED  ST> 
|  <LABEL>  END  ; 

=  <IND  ST>  |  <IND  PROG>  <IND  ST> 

=  <IND  PROG>  <CLOSED  ST>  |  <CLOSED  ST> 

=  <SUBPROGRAM>  |  <PROG  HD>  <SUBPROGRAM> 

=  <PROG  HD> 
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3.2  Identifiers  and  Numbers 

<identifier>  ::=  <id  character>  I  <identifier>  <id  character> 


<identifier>  <decimal  digit> 


<id  character>  ::= 

<letter> 

<break 

character> 

<letter>  : := 

A 

B  I 

C  |  ... 

Z 

<decimal  digit>  : := 

0 

1  | 

...  |  9 

<break  character> : : = 

@  | 

#  |  $ 

<number>  : := 

<decimal  digit> 

<number>  <decimal  digit> 

Identifiers  are  defined  according  to  usual  practice,  with  length  not 
exceeding  255  characters . 

31 

Numbers  are  non-negative  integers  with  value  not  exceeding  2  -1. 

3.3  Variables  and  Expressions 

<VARIABLE>  ::=  <IDENTIFIER>  |  <IDENTIFIER>  (  <EXPR  GROUP>  ) 

<EXPR  GROUP >  ::=  <EXPR>  |  <EXPR  GROUP>  ,  <EXPR> 

<PRIMARY>  ::=  <NUMBER>  |  <VARIABLE>  j  (  <EXPR>  ) | <FCTN  PRIM> 

|  ?  <VARIABLE>  |  ? 

<FACTOR>  ::=  <PRIMARY>  |  <FACTOR>  **  <PRIMARY> 

<TERM>  ::=  <FACTOR>  |  <TERM>  *  <FACTOR>  |  <TERM>  /  <FACTOR> 

<EXPR>  ::=  <TERM>  |  +  <TERM>  |  -  <TERM>  |  <EXPR>  +  <TERM> 

|  <EXPR>  -  <TERM> 

The  DIAL  system  supports  integer  and  rational,  but  not  real,  arithmetic. 

A  rational  number  is  treated  syntactically  as  a  division  of  integers,  which, 
if  not  reducible  to  an  integer  at  execution  time  is  converted  to  its  lowest 
terms,  by  use  of  the  binary  G.C.D.  algorithm  ([5]  -  p.297). 

Examples  of  acceptable  numeric  expressions: 

3,  -5, -5/8,  3/9  (automatically  converted  to  1/3) 

Arithmetic  overflow  of  an  integer  causes  termination  of  execution  with 
appropriate  error  message.  Overflow  of  the  numerator  or  denominator  of  a 
rational  number  produces  an  approximation  resulting  from  the  division  of 
both  numbersby  2,  and  a  warning  message  is  printed  (suppressable  -  see  3.14.13). 

Variables  are  automatically  declared  by  their  use  in  DIAL.  All 
variables  are  global  in  scope  except  those  explicitly  restricted  by  the  LOCAL 
statement  (see  3.7). 
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An  array  variable  may  be  subscripted  with  an  arbitrary  list  of  subscripts 
at  each  appearance  in  a  program. 


For  example: 

1=2;  J=3;  A(-5)=4;  A(2, 3,5)=A(-5) ;  PUTA(I,J,5); 

A(2,3,5)  =  4  * 


A  variable  will  be  known  at  run  time  to  be  a  procedure  variable,  and 
its  subscripts  will  be  treated  as  parameters  to  a  procedure  call,  if  the 
program  as  then  compiled  uses  the  variable  name  anywhere  to  form  a  Label 
or  Reference  (see  3.7).  Both  data  variables  and  procedure  variables  may 
be  subscripted  with  arbitrary  algebraic  expressions.  Evaluation  of  an 
expression  containing  a  procedure  variable  will  cause  that  procedure  to  be 
called,  and  the  first  expression  returned  by  the  procedure  to  be  used  as  the 
value  of  the  procedure  variable. 

A  procedure  variable  may  not  appear  on  the  left  hand  side  of  an  assign¬ 
ment  statement  (see  3.4). 

The  default  value  of  a  primary,  which  is  the  current  value  of  a  variable 
not  a  procedure  variable,  and  to  which  no  previous  assignment  has  been  made, 
is  the  atomic  value  of  the  variable.  The  default  value  of  a  procedure 
variable,  i.e.  the  expression  returned  in  the  absence  of  an  explicit  RETURN, 
is  the  atomic  value  ’NULL*. 

DIAL  expressions  are  carried  internally  as  variary  tree  structures 
representative  of  their  simplified  algebraic  form,  which  results  from  the 
application  of  one  or  more  levels  of  algebraic  simplification. 

For  example:  B=A  +  2*A;  PUT  B; 

B=A2  +  3A 
********* 


C=B**2 ;  PUT  C; 

4  3  2 

C=A  +  6A  +  9A 


The  asterisks  used  as  an  underline  are  an  output  feature  controlled 
by  the  SET  option  PRETTYPRINT  (see  3.14.9).  All  output  in  the 
examples  of  this  paper  will  be  so  indicated.  Input  statements 
will  not  be  understarred  and  will  terminate  with  a  semi-colon,  as 
required  by  the  DIAL  grammar. 
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3.4  Variable  groups.  Expression  groups,  and  Assignment  statements 


<VARIABLE  GROUP > 
<EXPR  GROUP> 
<ASSIGN> 

<CLOSED  ST> 


=  <VARIABLE>  |  < VARIABLE  GROUP>  ,  <VARIABLE> 
=  <EXPR>  |  <EXPR  GROUP >  ,  <EXPR> 

=  <VARIABLE  GROUP>  =  <EXPR  GROUP> 

=  <ASSIGN>  ; 


The  meaning  of  variable  group  and  expression  group  is  self  evident. 

An  <ASSIGN>  causes  the  assignment  of  expressions  in  an  expression  group, 
to  variables  in  the  corresponding  positions  of  the  variable  group.  If 
the  groups  are  mismatched,  assignment  proceeds  from  the  left  until  the 
variable  group  is  exhausted.  If  the  expression  group  is  exhausted  first, 
the  last  expression  assigned  is  re-assigned  until  completion  of  assignment 
to  the  entire  variable  group. 


Examples:  Q=5*A;  A,B,C=  P,Q;  PUT  A,B,C; 

A  =  P  B  =  5A  C  =  5A 

*****  ******  ****** 

The  value  of  an  expression  is  never  affected  by  subsequent  assignments 
to  any  of  its  atomic  variables: 

A  =  B*(C+D);  B  =  M  -  N;  C  =  M;  D  =  N;  PUT  A; 

A  =  B  C  +  B  D 
************* 

A  =  B* (C  +  D) ;  PUT  A; 

2  2 
A  =  M  -  N 

*********** 


3.5  IF  Statements  and  ELSE  Statements 

i 

<RE  LOP>  ::==|-,=  |<|<=|>|>  = 

<IF  CLAUSE> : :=  IF  <EXPR>  <RELOP>  <EXPR> 

<CLOSED  ST>  -  see  3.8 

<CLOSED  ST> : : =  <IF  CLAUSE>  THEN  <CLOSED  ST> 

<ELSE  HD>  ::=  ELSE 

<IND  ST>  ::=  <LABEL>  <ELSE  HD>  <CLOSED  ST> 

Any  two  expressions  may  be  compared  in  an  IF  statement,  but  except  for 
<RELOP>::=  =  (simple  equality),  the  result  will  not  be  intuitively  meaningful 
to  the  user,  unless  each  of  the  expressions  is  either  an  integer  or  a 
rational  number.  The  user  who  wishes  to  make  use  of  the  type  precedence 
of  operands  and  operators,  or  even  to  reset  precedence  as  required,  is 
referred  to  section  3.11.2. 


■ 


I 


15 


Because  of  the  interactive,  editable  nature  of  a  DIAL  program,  there 
can  be  no  syntactic  relationship  between  an  IF  statement  and  an  ELSE  state¬ 
ment.  Errors  are  detectable  only  at  run  time. 

When  an  IF  statement  is  executed  and  the  comparison  is  TRUE,  execution 
proceeds  in  normal  sequence,  but  if  an  ELSE  statement  with  matching  scope 
(see  3.6)  is  encountered,  execution  is  suppressed  until  the  ELSE  statement 
(and  its  extension,  if  any,  to  a  DO  "block"),  is  passed  over.  Conversely 
if  the  comparison  is  FALSE,  then  execution  of  the  closed  statement  following 
(and  its  extension,  if  any,  to  a  DO  "block")  is  suppressed,  but  for  the 
first  subsequent,  matching  ELSE  statement,  there  will  not  be  a  like  suppression. 

The  acceptable  run  time  scope  of  IF  and  ELSE  statements  is  dependent  upon 
that  for  IX)  and  END  statements,  and  is  explained  in  the  following  section. 


3.6  DO  Statements,  END  Statements,  FOR  Statements 


<D0  EL> 
<ITER  STEP> 
<ITER  CNTL> 
<CLOSED  ST> 
<IND  ST> 
<FOR  EL> 

<CLOSED  ST> 


DO  <ASSIGN>  <ITER  CNTL> 

BY  <EXPR> 

TO  <EXPR>  |  TO  <EXPR>  <ITER  STEP> 
<D0  EL>  ;  |  DO  ; 

<LABEL>  END  ; 

FOR  <ASSIGN>  <ITER  CNTL> 

<FOR  EL>  :  <CLOSED  ST> 


As  for  IF  and  ELSE  statements,  DO  and  END  statements  have  no  syntactic 
relationship.  In  the  line  of  execution,  however,  there  must  be  an  END 
statement  encountered  for  every  DO  statement.  The  following  example  indi¬ 
cates  the  nested  scope  of  DO-END  and  IF-ELSE  statements.  It  must  be  under¬ 
stood  that  the  sequence  shown  describes  the  execution  stream.  Several  of 
the  DO  statements,  for  example,  could  in  fact  be  one  and  the  same  labelled 
statement.  Execution  proceeds,  uninterrupted,  until  one  of  the  indicated 
error  points  are  reached.  An  error  message  is  then  generated,  and  execution 
terminates . 

The  sequence  of  instructions  is: 

IF  . . .  THEN  IF  ... ;  ...  ELSE  DO; 

ELSE  . . . ;  ...  END;  . . .  END; 

. . .  (return  from  procedure) . 

The  effect  of  this  nesting  is  identical  to  that  of  PL/I  or  ALGOL  60, 
with  the  sole  exception  that  it  is  predicated  upon  the  execution  sequence 
instead  of  the  compiled  instruction  sequence. 


DO;  ...  IF  ...  THEN  DO;  ... 

. . .  END;  IF  . . .  THEN  DO; 
END;  . . .  ELSE  . . . ;  ...  ELSE 


■ 
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Iterated  DO  "blocks"  and  FOR  "blocks"  have  the  same  effect. 

For  example: 

PR0C.1  DO  1=1  to  4;  PR0C.2  PUT  I;  PR0C.3  END; 

FOR  1=1  to  4  PUT  I; 

Calling  procedure  PROC  would  have  the  same  result  as  entering  the 
direct  FOR  statement,  namely  the  output  of  four  lines  giving  the  indicated 
values  of  I. 

The  FOR  statement  is  required  because  DO,  END  and  ELSE  statements 
may  not  be  used  as  direct  (unlabelled)  statements,  for  obvious  reasons. 


3.7  Procedures  and  Procedure  Calls 


=  <IDENTIFIER> 

=  PROCEDURE  ID>  .  <NUIvlBER> 

=  <STATEMENT  N0> 

=  STATEMENT  N0> 

=  GO  TO  <REFERENCE>  ; 

=  <LABEL>  <CLOSED  ST> 

=  CALL  <PRIMARY>  ;  |  RETURN  <EXPR  GROUP>  ; 

|  RETURN  ;  |  LOCAL  < VAR I ABLE  GROUP>  ; 

|  PARAMETER  < VARIABLE  GROUP>  ; 

DIAL  statements  may  be  edited  at  any  time  without  forcing  re-compilation 
of  the  entire  stored  program.  As  a  result  it  is  not  possible  to  have  a 
Pl/I-like  block  structure  defined  at  compile  time.  It  is  therefore  necessary 
for  each  procedure  statement  to  indicate  the  procedure  to  which  it  belongs, 
and  its  position  in  the  order  of  execution  of  the  procedure’s  statements. 

This  information  is  contained  in  the  label  that  heads  it. 

Unlabelled  statements  are  termed  direct ,  calling  for  immediate 
execution,  once  compiled.  Labelled  statements  are  indirect,  i.e.  they 
are  only  executed  if  and  when  their  procedure  is  invoked. 

Example:  PROC.50  PUT  A;  PROC.20  A=5*B;  CALL  PROC; 

A  =  5B 
****** 

PROC. 30  A= (A+C) **3;  CALL  PROC; 

A  =  125B3  +  75B2C  +  15B  C2  +  C3 
******************************* 

PROC. 10  B=2/5 ;  PROC. 15  C=3;  CALL  PROC; 

A  =  125 
******* 

A  statement  may  be  changed  by  simply  entering  a  new  statement  with 
the  identical  label.  For  example  PROC. 10  B=2;  would  supercede  the  old 
statement  PROC. 10.  And  PROC. 10; ,  the  null  statement,  suffices  to  delete  it. 

All  procedures  are  at  the  same  lexical  level  (i.e.,  procedures  may  not 
be  nested) .  Any  procedure  may  invoke  any  other  and  all  labels  are  uniquely 
defined . 

A  reference  has  the  same  form  as  a  label  and  is  used  for  branches 
(the  GO  TO  statement),  and  for  program  storage  and  display. 


PROCEDURE  ID> 
STATEMENT  N0> 
<REFERENCE> 
<LABEL> 

<CL0SED  ST> 
<IND  ST> 
<CL0SED  ST> 


e.g.  following  on  above  example: 

A  =  X;  GO  TO  PROC. 50 


. 


s 

. 


19 


Warning  on  the  use  of  the  GO  TO  statement:  If  such  a  branch  is  taken 
from  a  (normally  invoked)  procedure  A  to  another  procedure  B,  then  completion 
of  and  return  from  B  will  pass  control  back  to  the  procedure  (if  any)  that 
invoked  A,  at  the  point  of  that  invocation. 


Examples  of  procedure  calls: 

PR0C.10  PARAMETER  A,B; 

PROC.20  LOCAL  X,Y,Z;  Procedure 

PROC.80  RETURN  X,Y,P; 

CALL  PROC  (R,S); 

P,Q,R  =  PROC(M,N);  Procedure  Calls 

Y  =  Z  +  PROC (I, 5); 


Procedures  may  be  called  implicitly  as  a  function  call,  i.e.  by  using 
the  procedure  name  as  a  (possibly  subscripted)  variable  in  an  expression. 

The  CALL  statement  invokes  the  procedure  explicitly,  and  for  this  statement, 
expressions  returned  by  the  procedure,  if  any,  are  ignored. 


A  Procedure  may  contain  at  most  one  PARAMETER  statement,  which  must 
appear  first  in  the  line  of  execution,  i.e.  its  label  must  bear  the  lowest 
numerical  value  of  all  the  statements  of  that  procedure. 

When  a  LOCAL  statement  is  executed,  the  expressions  representing  the 
current  values  of  the  referenced  local  variables  are  copied.  These  copies 
are  saved  until  the  moment  of  return  from  the  procedure,  at  which  time  they 
are  restored  to  their  respective  variables.  The  effect  of  this  operation 
is  to  give  local  scope  to  the  variables  selected. 

When  a  PARAMETER  statement  is  executed,  its  first  action  is  to  localize 
the  variables  of  the  variable  group  it  modifies,  just  as  for  a  LOCAL  state¬ 
ment.  In  addition,  the  expressions  passed  by  the  calling  statement  (as 
subscripts  to*  the  procedure  named  invoked)  are  assigned  to  the  parameter 
variables . 


It  must  be  remembered  that  all  variables  are  global  in  scope  unless 
they  appear  in  a  PARAMETER  or  LOCAL  statement. 

Return  from  a  procedure  is  effected  by  a  RETURN  statement  or  by  com¬ 
pletion  of  the  execution  stream  of  the  procedure.  A  NULL  expression  is 
held  for  passing  back  to  the  calling  procedure  in  the  absence  of  an  expression 
group  being  explicitly  returned.  The  sequence  of  return  is  as  follows: 

(i)  Formation  of  an  expression  group  of  returning  expressions. 

(ii)  Delocalizing  of  all  localized  variables,  i.e.  re-assignment  of 
the  values  saved  at  localization. 

(iii)  Back  assignment  of  the  returned  expressions.  The  form  of 
this  assignment  depends  upon  the  nature  of  the  calling 
statement.  If  the  procedure  called  appears  on  the  right 
hand  side  of  an  assignment  statement,  then  the  entire  expression 
group  being  returned  is  assigned  if  possible.  Otherwise  only 
the  first  expression  in  the  group  is  returned. 
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Examples : 

A  =  Z; 

PROC.l  PARAMETER  A,  B;  PROC.2  LOCAL  C; 

PROC.3  C  =  (A+B) *R;  PROC.4  RETURN  C,B; 


(1)  CALL  PROC(5,6); 

Upon  return  A 

(2)  M,N,P  =  PROC(5,6),X; 

Upon  return  A 
N 

(3)  B,N  =  6  +  PROC(5 ,6) ; 

Upon  return  A 


Z,  B  =  B,  C  =  C 

Z,  B  =  B,  C  =  C,  M  =  HR, 

6,  P  =  X 

Z,  B  =  HR  +  6,  C  =  C,  N  =  HR  +  6 


3.8  Closed  Statements 
and  Subprograms . 


Indirect  Statements,  Direct  Statements 


<CL0SED  ST> 


<IND  ST>  1 

<IND  PR0G> 
<SUBPROGRAM> 
<PR0G  HD> 
<PR0GRAM> 


::=  <IF  CLAUSE>  THEN  <CL0SED  ST>  |  <ASSIGN>  ; 

|  GO  TO  <REFERENCE>  ;  |  DO  ;  |  DO  <ASSIGN>  <ITER  CNTL>  ; 
|  <F0R  EL>  :  <CL0SED  ST>  |  <OPTION  LIST>  ;  |  CALL 
<PRIMARY>  ;  |  PARAMETER  < VAR I ABLE  GR0UP>  ;  |  LOCAL 
<VARIABLE  GR0UP>  ;  |  INTERRUPT  ;  |  RETURN  <EXPR  GR0UP>  ; 
|  RETURN  ;  |  GET  <VARIABLE  GR0UP>  ;  |  <PUT  LIST>  ; 

|  LOAD  <IDENTIFIER>  ;  |  <DISK  PUT  HD>  <REF  ID>  ; 

|  < DELETE  LIST>  ;  |  <STRING>  ;  |  ;  |  <PROCEDURE  ID>  . 
<CLOSED  ST> 

::=  <LABEL>  <CLOSED  ST>  |  <LABEL>  ELSE  <CLOSED  ST> 

|  <LABEL>  END  ; 

:=  <IND  ST>  |  <IND  PR0G>  <IND  ST> 

:=  <IND  PROG>  <CLOSED  ST>  |  <CLOSED  ST> 

:=  <SUBPROGRAM>  |  <PR0G  HD>  <SUBPROGRAM> 

:=  <PROG  HD> 


These  productions  illustrate  control  of  the  alternate  invocation  of  the 
DIAL  compiler  and  the  DIAL  interpreter.  As  long  as  an  indirect  program  is 
being  compiled  from  labelled  indirect  statements,  execution  is  suppressed. 
Entry  of  an  unlabelled  closed  statement  into  the  compilation  stream  forms  a 
subprogram,  compilation  halts,  and  execution  of  that  direct  statement 
commences.  The  statement  may  or  may  not  be  a  call  upon  a  procedure  of  the 
stored  program. 
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Examples  of  direct  statements: 

(1)  CALL  PROC(A,B); 

(2)  A  =  B  +  PROC (M,N) ; 

(3)  PUT  A; 

The  compiler  will  be  re-invoked  when  execution  of  the  direct  statement  is 
complete.  This  will  only  occur  after  the  return  from  any  procedure  it 
may  call . 


3.9  Input/Output 


<REF  ID> 

•  •  — 

•  • 

<REFER>  |  <EXPR> 

<REFER> 

•  •  — 

•  •  ” ’ 

PROCEDURE  <PROCEDURE 

ID> 

|  <REFERENCE> 

|  ALL 

PROCEDURES  |  ALL  VALUES 

ALL 

<PUT  LIST  EL> 

: :  = 

<REF  ID>  |  <STRING> 

<PUT  LIST> 

: :  = 

PUT  <PUT  LIST  EL>  | 

<PUT 

LIST> 

,  <PUT 

LIST 

EL> 

<CL0SED  ST> 

: :  = 

<PUT  LIST>  ; 

<CL0SED  ST> 

: :  = 

GET  < VAR I ABLE  GR0UP> 

<CL0SED  ST> 

:  :  = 

LOAD  <IDENTIFIER>  ; 

<SAVENAME> 

: :  = 

SAVE  AS  <IDENTIFIER> 

• 

• 

RE SAVE 

AS  <IDENTIFIER> 

<DISK  PUT  HD> 

: :  = 

<SAVENAME>  <REF  ID> 

|  <DISK  PUT 

HD>  , 

<REF 

ID> 

<CLOSED  ST> 

: :  = 

<DISK  PUT  HD>  ; 

3.9.1  Output 

The  DIAL  system  outputs  to  one  or  more  of  three  targets,  namely  the 
printer,  display  device,  and  direct  access  off-line  storage  device.  In 
default  mode,  all  output  generated  by  a  PUT  statement  appears  on  both 
printer  and  display  device,  although  the  PRINT/NOPRINT  and  DISPLAY/NODISPLAY 
SET  options  give  the  programmer  selective  control  (see  3.14.4  and  3.14.10). 

(1)  PUT  ...,  <EXPR> ,  ...; 

Expressions  are  output  in  the  form:  'Header'  =  Expression 
where  the  value  of  'Header'  depends  upon  the  way  in  which  the  expression  was 
formed . 

Examples : 

PUT  A; 

A  —  ... 

*** 

PUT  A(I , J,K) ; 

A(5 ,4 , 3)  =  ...  (typically) 

********** 

PUT  A  +  A(I , J) ; 

A  +  A(I ,  J)  = 

************ 


•  •  • 


. 
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The  form  of  the  output  of  expressions  is  controlled  by  the 
PRETTYPRINT/NOPRETTYPRINT  option  (see  3.14.9).  Only  with  NOPRETTYPRINT 
set  will  the  output  be  compatible  with  the  DIAL  grammar  for  purposes  of 
later  re-submission  to  the  compiler. 

(2)  PUT...,  PROCEDURE  PROCEDURE  ID>  ,  ...; 

A  column-adjusted  source  listing  of  a  complete  procedure  is  output. 

(3)  PUT...,  <REFERENCE>  ,  ...; 

A  single  column-adjusted  procedure  statement  is  output. 

(4)  PUT. ..,  ALL  PROCEDURES,  ...; 

The  entire  stored  program  is  output. 

(5)  PUT. . . ,  ALL  VALUES,  .  .  .; 

The  values  of  the  expressions  referenced  by  all  atomic  and  array 
variables  are  output,  excluding  pre-initialized  variables  (See  3. 11.2.) • 

(6)  PUT. . . ,  ALL,  . . . ; 

Combination  of  4  and  5.  It  would  be  superfluous  to  add  any  other 
<PUT  LIST  EL>  to  this  instruction. 

(7)  PUT  <STRING>  ; 

A  String  is  the  only  DIAL  construct  which  is  not  stored  internally  in 
tree  form.  It  is  simply  a  character  string  between  quotes  and  the  PUT 
instruction  will  display  it  exactly  as  it  appears. 

Example : 

PUT  ’HI  THERE’; 

HI  THERE 


3.9.2  Input 

In  the  absence  of  LOAD  and  GET  statements,  input  to  the  compiler  proceeds 
automatically  from  the  card  reader  or  display  device,  depending  upon  the  SET 
option  CARDREAD/NOCARDREAD  (see  3.14.3).  If  the  card  reader  file  closes, 
and  the  option  DISPLAY  is  set  (the  default  option) ,  then  NOCARDREAD  is 
automatically  forced,  and  the  display  device  console  becomes  active  for 
input.  If  NODISPLAY  is  set,  and  the  card  reader  file  is  exhausted,  the 
job  terminates. 

GET  statements  demand  from  card  reader  or  display  device  the  values 
of  required  variables.  If  CARDREAD  is  set,  the  next  card  must  contain  a 
group  of  expressions,  separated  by  commas,  and  terminated  by  a  semicolon 
(e.g.  A+B,  C,  D**3; ) .  With  NOCARDREAD  set  the  display  console  will  become 
active  for  input  with  a  pre-initialized  request  for  the  expressions  required. 
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Example:  If  the  command  GET  A,B;  is  being  executed, then  the  following  message 
appears  in  the  input  area  of  the  display  device: 

A,  B  = 

The  underscore  represents  the  input  cursor.  The  system  then  waits  until 
the  user  completes  this  DIAL  statement,  and  returns  it  to  the  compiler. 

Note  that  a  semicolon  is  automatically  entered  into  the  rightmost  column 
of  the  display  device  input  area,  so  none  need  be  entered  by  the  user. 

LOAD  statements  demand  the  input  of  the  named  file,  and  an  error  message 
will  be  generated  if  the  file  cannot  be  found.  Otherwise  the  entire  contents 
of  the  file  (residing  on  direct  access  storage)  will  be  sent  to  the  compiler. 
This  file,  by  virtue  of  the  way  it  was  created,  bears  only  indirect  (labelled) 
program  source  statements  and  direct  variable  assignment  statements.  The 
former  will  be  compiled  only,  and  the  latter  will  be  compiled  and  executed 
to  refresh  the  current  value  of  the  stored  variables. 

Direct  access  storage  of  programs  is  achieved  through  the  Disk  Put 
closed  statement.  Where  SAVE  has  been  used  for  <SAVENAME>,  the  system  will 
allocate  storage  dynamically  and  will  terminate  execution  if  a  data  set  of 
the  same  name  has  been  pre-al located .  Where  RESAVE  has  been  used  for 
<SAVENAME>,  execution  will  terminate  if  such  a  data  set  has  not  been  pre¬ 
allocated. 

The  Disk  Put  statements  force  the  setting  of  NOPRETTYPRINT  automatically, 
in  anticipation  that  a  future  LOAD  statement  will  require  compatibility  with 
DIAL  input. 

Example:  SAVE  AS  PROGSAVE:  A, B, PROCEDURE  PROC; 

DELETE  ALL; 

LOAD  PROGSAVE; 

i 

This  sequence  of  statements  will  cause  deletion  of  all  variables  and  all 
procedures,  but  the  LOAD  statement  will  restore  the  values  of  variables  A 
and  B,  and  the  procedure  PROC.  This  is  achieved  by  re-compiling  the  variable 
assignment  statements  for  A  and  B,and  the  source  listing  of  PROC. 


. 

- 
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3.10  Expression  Matching 

<PRIMARY>  ::=  ?  |  ?  <VARIABLE> 

Certain  variables  are  of  particular  semantic  importance.  These  are 
the  question  variables,  and  are  distinguished  by  having  as  their  leading 
character  a  question  mark  '?'.  If  there  are  no  subsequent  characters, 
the  question  variable  is  known  as  the  arbitrary  variable. 

Question  variables,  whether  or  not  subscripted,  are  carried  in 
expressions  as  fixed  atomic  entities.  A  variable  whose  name  is  the  same 
as  that  of  a  question  variable  but  with  the  leading  question  mark  removed, 
is  known  as  its  master  variable.  For  each  question  variable  (excluding  the 
arbitrary  variable),  the  corresponding  master  variable  will  be  entered  on 
the  symbol  table. 

Assignments  may  not  be  made  to  question  variables,  and  they  may  not  be 
used  as  procedure  variables. 

The  arbitrary  variable  and  the  question  variables  are  effectively  used 
only  for  expression  matching,  in  a  statement  of  the  following  kind: 

IF  Expr^  =  Expr^  THEN  ...  ; 

In  the  execution  of  this  kind  of  statement,  Expri  and  Expr2  are  compared 
for  equality,  sub-expression  by  sub-expression  (i.e.  node  by  node  in  the 
internal  tree  structure) .  In  the  event  that  one  of  these  sub-expressions 
is  a  question  variable,  and  the  other  is  not,  an  assignment  will  be  made  of 
the  latter  expression  to  the  master  variable  pertaining  to  the  former. 

The  two  sub-expressions  will  then  be  declared  'equal'  in  the  IF  comparison, 
even  though  the  former  expression  is  still  a  question  variable. 

If  one  or  both  of  these  sub-expressions  is  the  arbitrary  variable, 
or  both  are  question  variables,  then  the  comparison  will  be  declared 
'equal',  but  no  assignments  will  be  made. 

The  effect  of  the  use  of  the  arbitrary  variable  and  question  variables 
is  then  to  assure  a  match  of  sub-expressions  where  required,  and,  for 
sub-expressions  of  particular  interest,  to  allow  selection  by  assignment. 

Examples : 

(?X  is  a  question  variable,  X  its  master  variable) 

Y  =  ?X  +  Z; 

IF  Y  =  Z  +  A**2  THEN  PUT  'EQUAL', X; 

EQUAL 


****** 


2 

(?X  automatically  matches  the  A  ) 


- 
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Y  =  A**?  *  B; 

IF  Y  =  A** (S+R)  *  ?X(3)  THEN  PUT  'EQUAL' ,X(3)  ; 

EQUAL 

X(3)  =  B 


(The  arbitrary  variable  automatically  matches  the  (S+R)  expression, 
but  there  is  no  assignment.  The  ?X (3)  matches  the  B,  and  assignment 
is  made) . 


3.11  Function  Primaries 

<FCTN  ID>  ::=  SIN  |  COS  |  TAN  |  ASIN  |  ACOS  |  ATAN  |  LN 

|  EXP  |  EXPAND  |  #OPERANDS  |  TYPE 

<BY  GROUP>  <EXPR>  BY  <EXPR> 

<THEN  BY  GROUP> : : =  <BY  GROUP>  |  <THEN  BY  GROUP>  ,  THEN  <BY  GROUP> 

<FCTN  PRIM>  ::=  <FCTN  ID>  (  <EXPR>  )  |  REPLACE  (  IN  <EXPR>  , 

<THEN  BY  GROUP >  )  |  DERIV  (  <EXPR>  BY  <VARIABLE>) 

|  OPERAND  (  <EXPR>  ,  <EXPR>  )  |  ATOMIZE  (  <VARIABLE>  ) 

The  DIAL  system  contains  a  number  of  built-in  functions,  which  are 
designed  to  aid  in  algebraic  manipulation,  and/or  data  structure  operations. 

3.11.1  EXPAND  (Expr) 

The  EXPAND  function  has  no  effect  when  the  SET  option  AUTSIM  is  turned 
on.  This  option  causes  the  automatic  application  of  the  distributive  law 
to  algebraic  simplification  (see  3.14.2).  When  AUTSIM,  which  is  the  default 
option,  is  turned  off,  however,  the  EXPAND  function  will  force  application 
of  the  distributive  law  to  the  expression  it  modifies. 

3.11.2  TYPE  (Expr) 

This  function  gives  the  user  the  means  to  construct  and  evaluate 
arbitrary,  variary  tree  structures.  It  enables  him  to  effectively  re-order 
the  precedence  of  operators  and  operands,  and  it  can  be  used  with  normal 
algebraic  or  with  non-algebraic  operations  (ALGEBRA/NOALGEBRA  options) . 

There  are  a  number  of  variables  which  are  automatically  entered  into 
the  DIAL  symbol  table  and  given  pre-set  values,  upon  initialization  of  the 
DIAL  system.  These  variables,  with  their  initial  values  in  parantheses  are: 
NULL  (NULL)  ,  INTEGER  (1)  ,  RATIONAL  (2)  ,  AT0M(3),  FUNCTIONS),  EXPONENT  (5)  , 

MULTIPLY  (6) ,  PLUS  (7) ,  DIVIDE(8),  and  QUESTIONS).  In  general,  DIAL  expressions 


i  r> 


' 
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are  composed  of  variary  trees  whose  nodes  are  of  one  of  these  types, 
excluding  NULL.  As  it  happens,  the  values  assigned  to  these  variables 
correspond  exactly  to  the  internal  precedence*  given  to  the  node  types 
they  represent. 

e.g.  PLUS  >  MULTIPLY  a*  (A+B)  >  (A*B) 

TYPE  (Expr)  returns  the  value  of  the  variable  corresponding  to  the 
principal  operator  (see  3.11.3)  of  Expr. 

e.g.  PUT  TYPE  (A+B); 

TYPE  (A+B)  =  8  (the  value  of  PLUS=8) 

************** 

One  can  use  TYPE  in  an  IF  expression: 

IF  TYPE (EXPR1)  =  TYPE (EXPR2)  THEN  .... 
or  IF  TYPE (EXPR)  =  MULTIPLY  THEN  ... 

Note  that  unlike  normal  expression  comparison,  TYPE  looks  solely  at  the 
principal  operator.  Thus  (A+B)  <  (B+C) ,  but  TYPE (A+B)  =  TYPE(B+C). 

The  user  may  establish  his  own  precedence  of  operands  and  operators, 

simply  by  re-assigning  the  type  variables. 

e.g.  PLUS  =1;  ATOM  =  2; 

IF  TYPE (A+B)  <  TYPE (A)  THEN  PUT  ’LESS  THAN'; 

LESS  THAN 

Re-setting  the  type  variables  changes  only  the  values  returned  by  TYPE, 
and  not  the  precedence  used  by  the  algebraic  simplification  package,  or 
by  the  expression  comparison  routines: 

t 

IF  (A+B)  >  A  THEN  PUT  'GREATER  THAN'; 

GREATER  THAN 


Finally,  the  user  may  wish  to  establish  atomic  values  for  the  TYPE 
variables,  so  that  they  will  show  their  type  on  output. 


e.g.  PLUS  =  PLUS;  PUT  TYPE(A+B); 

TYPE (A+B)  =  PLUS 


* 


This  is  not  the  same  as  the  syntactic  precedence  of  operators. 


. 
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Care  should  be  taken  not  to  compare,  except  for  equality  alone, 

TYPEs  of  operators  whose  variables  have  been  set  to  atomic  values,  as 
the  comparison  would  be  made  on  the  length  and  alphabetic  ordering  of 
these  names . 

3.11.3  OPERAND  (Expr^,  Expr^) 

This  function  inspects  the  data  structure  by  which  Expr^  is  internally 
represented  in  the  DIAL  system.  Expr2  must  evaluate  at  run  time  to  an 
integer  N.  If  N  <  1,  then  OPERAND  returns  the  leftmost  operand  connected 
by  the  principal  operator  of  Expr^ .  If  N  >  0,  then  OPERAND  returns  the  Nth 
operand  of  the  principal  operator  of  Expr, .  If  Expr.  does  not  have  N 
such  operands,  OPERAND  returns  NULL. 

By  principal  operator  is  meant  the  binary  or  variary  operator  with 
the  least  syntactic  precedence  in  the  expression  Expr^,  i.e.  the  one 
representing  the  operation  to  be  performed  last.  For  example,  given 
the  expression: 

Exprx  =  (A+B) * (B+C) 

2 

which  is  automatically  simplified  to  AB  +  AC  +  B  +  BC,  this  expression 
is  represented  internally  in  the  DIAL  system  as: 


» 
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The  principal  operator  is  always  the  ’parent',  here  a  '+’  node.  In 
this  case 


OPERAND  (expr^jO)  =  OPERAND  (Expr^l)  =  A  B 

OPERAND (Expr^ , 2)  =  A  C 

OPERAND (Expr  ,3)  =  B2 

OPERAND (Expr ^ , 4)  =  B  C 

OPERAND (OPERAND (Expr  , 3)  ,2)  =  2 

Note  that  the  'operands'  connected  by  the  principal  operator  may  themselves 
be  algebraic  expressions. 

OPERAND  is  intended  for  use  with  TYPE  and  #OPERANDS . 


3.11.4  #OPERANDS  (Expr) 

This  function  returns  the  number  of  operands  connecting  the  principal 
operator  to  the  expression  it  modifies. 

e.g.  using  Expr^  in  the  previous  example 
#OPERANDS(Expr1)  =  4 

3.11.5  REPLACE  (IN  Parent-Expr,  Sought-Expr  BY  Replacement-Expr, . . . ) 

The  Parent-Expr  is  searched  to  see  if  it  bears  an  expression  identical 
to  the  Sought-Expr,  as  one  of  its  sub -express ions .  If  such  is  found,  this 
expression  is  discarded  from  Parent-Expr  and  replaced  by  a  copy  of 
Replacement-Expr.  The  search  is  continued  until  all  such  replacements  are 
complete . 

This  process  is  repeated  for  each  Sought-Expr  and  Replacement-Expr  pair, 
using  the  modified  Parent-Expr  for  every  search. 

Example:  Y  =  REPLACE (IN  A**2+2*A*B  +  B**2,  A  BY  X,  THEN  B  BY  5); 

PUT  Y; 

Y  =  X2  +  10X  +  25 
***************** 


3.11.6  DERIV  (Expr^  BY  Expr^) 

This  function  takes  the  derivative  of  Expr.^  with  respect  to  Expr2,  which 
must  be  an  atomic  variable. 

Example:  PUT  DERIV(A**2  *  B  BY  A) ; 

DERIV(A**2  *  B  BY  A)  =  2A  B 
*************************** 


- 

■ 


- 
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3.11.7  ATOMIZE  (Variable) 

This  function  returns  the  atomic  value  of  the  variable  it  modifies 


Example:  X  =  A  +  B; 


PUT  X,  ATOMIZE (X) ; 


X  =  A  +  B 
********* 

ATOMIZE (X)  =  X 
************** 


A  variable  may  be  easily  re-initialized  by: 

X  =  ATOMIZE (X) ; 

Note  that  this  effect  is  not  achieved  by  X=X;,  but  it  would  be  duplicated 
by  DELETE  X;  (see  3.12). 

3.11.8  SIN, COS,  TAN,  ASIN,  ACOS,  ATAN,  LN,  EXP 

Simplification  of  the  trigonometric  and  transcendental  functions  is  not 
yet  implemented  in  DIAL.  These  expressions  are  treated  as  atomic  values 
(with  simplified  subscripts) ,  although  the  user  can  introduce  trigonometric 
and  other  identities  through  use  of  the  REPLACE  function  (see  3.11.5),  and  he 
can  write  function  procedures  to  invoke  them  automatically  (see  2.7). 


3.12  Delete  Statements 

< DELETE  ID> 

< DELETE  LIST> 
<CLOSED  ST> 


=  <REFER>  |  <VARIABLE> 

=  DELETE  <DELETE  ID>  |  < DELETE  LIST>  ,  <DELETE  ID> 
=  < DELETE  LIST>  ; 


(1)  DELETE  ..i,  Variable,  ...; 

The  variable  is  reduced  to  its  atomic  value,  although  it  is  not  removed 
from  the  symbol  table. 

(2)  DELETE  . . .  Procedure,  . . . ; 

The  procedure  is  removed  from  the  procedure  statement  table  and  its 
variable  is  reduced  to  the  status  of  an  atomic  variable. 

DELETE  PROC;  PUT  PROC; 

PROC  =  PROC 
*********** 


(3)  DELETE  ...,  Reference,  ...; 


The  indicated  statement  is  removed  from  the  procedure. 


. 
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(4)  DELETE  ALL  VALUES, 

The  symbol  table  is  re-initialized. 

(5)  DELETE  ALL  PROCEDURES,  ; 

The  Procedure-Statement  table  is  re-initialized. 

(6)  DELETE  .  . . ,  ALL,  .  .  .  ’> 

The  entire  program  is  re-initialized. 

During  execution  of  a  program,  the  user  may  generate  an  interrupt,  and 
subsequently  delete  the  statement  from  which  the  interrupt  occurred.  In 
this  instance,  deleted  statements  (or  deleted  procedures)  are  marked  non¬ 
executable,  so  that  resumption  from  the  interrupt  will  not  result  in 
attempted  execution  of  deleted  statements.  Instead,  execution  will  resume 
with  replaced  statements  (or  procedures) ,  if  any,  or  pass  onto  the  next 
statement  in  the  line  of  execution.  It  is  not  possible  to  provide  complete 
protection  in  all  circumstances  however,  and  it  is  recommended  that  where 
deletions  have  taken  place,  any  pending  interrupt  resumptions  be  reset,  by 
selection  of  the  RESET  function  key,  instead  of  the  RESUME  key.  This 
action  will  force  a  fresh  commencement  of  execution. 


3.13  Interrupt  Statements 

<CL0SED  ST>  ::=  INTERRUPT  ; 

This  statement  has  the  same  effect  as  does  depression  of  the  user’s 
interrupt  function  key  on  the  display  device  (see  2.6).  The  sole  advantage 

of  this  instruction  is  that  a  programmed  interrupt  will  occur  precisely  at 

the  desired  point  in  the  program. 

i 

3.14  SET  Options 

<0PTI0N  LIST>  ::=  SET  <IDENTIFIER>  |  <0PTI0N  LIST>  ,  <IDENTIFIER> 

<CL0SED  ST>  ::=  OPTION  LIST  HD>  ; 

Effective  control  of  the  modes  of  operation  of  the  DIAL  system  is 
exercised  through  the  SET  options.  These  statements  set  the  status  of 
internal  flags  and  they  come  in  pairs,  each  pair  representing  a  set  "on” 
and  a  set  "off”  option.  The  option  pairs  available  in  the  current 
implementation  are  listed  below,  with  the  first  element  of  the  pair  being 
the  default  option. 

3.14.1  ALGEBRA/NOALBEGRA 

Unless  ALGEBRA  is  set,  no  simplification  whatever  of  algebraic  expressions 
will  be  attempted.  Expressions  will  be  carried  exactly  as  entered  and  output 
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in  the  same  form,  (although  perhaps  spruced  up  by  PRETTYPRINT) .  NOALGEBRA 
should  be  set  only  by  those  who  wished  to  utilize  DIAL  as  a  list  processing 
language  exclusively. 

3.14.2  AUTSIM/NOAUTSIM 

With  AUTSIM  set  the  Group  2  simplifications  are  applied  to  algebraic 
simplification  in  addition  to  the  Group  1  simplifications  (see  Chap.  4). 
With  NOAUTSIM  set,  only  the  Group  1  simplifications  are  applied. 

3.14.3  CARDRE AD/NOCARDRE AD 

This  option  controls  the  choice  of  input  device.  With  CARDREAD  set, 
it  is  the  card  reader,  but  with  NOCARDREAD  set,  it  is  the  Graphics  Display 
Device.  It  is  not  possible  to  effectively  set  NOCARDREAD  if  the  option 
NODISPLAY  has  been  set.  If  DISPLAY  is  set,  the  CARDREAD  option  will 
automatically  revert  to  NOCARDREAD  upon  exhaustion  of  the  card  reader  file. 
Otherwise  the  job  will  terminate  at  that  time. 

3.14.4  DISPLAY/NODISPLAY 

This  option  permits  or  prevents  Input/Output  operations  with  the 
Graphics  Display  Device.  If  it  is  desired  to  run  entirely  in  batch  mode, 
NODISPLAY  should  be  set  at  the  beginning  of  the  job. 

3.14.5  EXPDECREASE/EXP INCREASE 

This  is  an  output  format  option  for  polynomials  only,  and  it  gives  the 
user  choice  over  whether  the  expression  variable  whose  alphabetic  value  is 
the  least  (comparison  by  length  and  then  by  alphabetic  order)  shall  be  out¬ 
put  in  increasing  or  decreasing  order  of  its  exponents.  For  example: 

SET  EXP INCREASE;  PUT  X; 

X  =  10B3  +  5A  B2  +  15A2B  +  2A3 
****************************** 

SET  EXPDECREASE;  PUT  X; 

X  =  2A3  +  15A2B  +  5A  B2  +  10B3 
****************************** 

3.14.6  NOEXPONENT I ATE /EXPONENT I ATE 

The  EXPONENTIATE  option  requires  that  expressions  taken  to  a  rational 
number  power  be  expanded. 

For  Example: 

SET  NOEXPONENTIATE ;  Y  =  (A+B)**2/3;  PUT  Y; 

Y  =  (A  +  B)2/3 
************** 
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SET  EXPONENTIATE;  PUT  Y; 
Y  =  (A2  +  2A  B  +  B2)1/3 


As  the  talents  of  the  DIAL  compiler  for  factoring  algebraic  expressions 
are  quite  limited,  it  is  usually  best  to  leave  NOEXPONENT I ATE  set. 

3.14.7  NOMACROTRACE /MACROTRACE 

The  macrotrace  option  causes  the  printing  of  a  fairly  large  number  of 
the  intermediate  steps  in  an  algebraic  simplification,  and  is  useful  for 
inspecting  the  simplification  process. 

3.14.8  NOMICROTRACE /MICROTRACE 

The  microtrace  is  a  permanent  DIAL  system  debugging  feature.  It  will 
be  of  no  help  to  a  user  not  familiar  with  the  design  of  the  DIAL  system,  and 
who  does  not  have  a  copy  of  the  DIAL  source  code. 

3.14.9  PRETTYPRINT/NOPRETTYPRINT 

The  PRETTYPRINT  option  formats  the  output  of  algebraic  statements  to  a 
neat,  easily  read  form  with  raised  exponents  and  understarring.  The 
NOPRETTYPRINT  option  will  cause  output  that  is  difficult  to  read,  with 
perhaps  many  sets  of  nested  parentheses,  but  the  advantage  of  this  form  is 
that  it  is  compatible  with  the  DIAL  grammar,  and  may  be  re-submitted  to  the 
compiler. 

3.14.10  PRINT/NOPRINT 

This  option  allows  or  suppresses  output  to  the  line  printer. 

3.14.11  »  TERMINATE 

This  option  will  terminate  the  job.  It  has  of  course  no  matching 
’noterminate ' ,  and  it  is  initialized  to  "off". 

3.14.12  NOTRACE/TRACE 

* 

The  TRACE  option  will  print  out  the  values  of  variables  to  which 
assignments  have  been  made  in  assignment  statements. 

3.14.13  WARN/NOWARN 

NOWARN  effects  suppression  of  all  warning  messages. 


- 

- 
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CHAPTER  4  ALGEBRAIC  SIMPLIFICATION 


As  expressions  are  subjected  to  algebraic  operations,  the  resulting 
expression  is  automatically  submitted  to  the  algebraic  simplification 
routines.  Two  levels  of  simplification  are  normally  applied.  Level  1 
is  always  applied,  but  the  second  level  can  be  suppressed  by  setting  the 
NOAUTSIM  option. 


4.1  Level  1  Simplifications 

These  embody  the  following  algebraic  rules,  in  which  lower  case 
letters  represent  integers,  upper  case  are  expressions,  including  integers 
or  rationals. 


(i) 

a+b  -+  (a+b) 

Integer  sum 

(ii) 

a*b  -+■  (ab) 

Integer  product 

(iii) 

a/b  -+  (a/b) 

Integer  or  Rational 

Civ) 

(a/b)*c  , 

c*(a/b) 

-+  ( ac)  /b 

(v) 

(a/b)*  (c/d) 
(c/d) *( a/b) 

}  -+  (ac)/(bd) 

(vi) 

A+ (B+C)  , 

(A+B) +C  1 

-+  A+B+C 

(vii) 

(A*B)*C  , 

A* (B*C) 

-+  A*B*C 

(viii) 

A/(B/C)  -+ 

(A*C)/B 

(ix) 

(A/B)  / C  -> 

A/(B*C) 

(x) 

aB+aC  aB+C 

A  *A  -+  A 

(xi) 

ab/ac  ab 

A  /A  -+  A 

-C 

(xii) 

O 

A  -+  1 

(xiii) 

o 

> 

o 

V* 

> 

'Ik 

o 

(xiv) 

1A  -  1 

(xv) 

A+0  =  0+A  -+ 

A 

' 
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(xvi) 

A*0  =  0*A 

-+  0 

(xvii) 

A*1  =  1*A 

-+  A 

.2  Level  2  Simplifications 

(i) 

(A+B) m  + 

(A+B) (A+B) .... 

m  times 

(ii) 

(A+B)m/n 

->  (((A+B)  (A+B)  .  .  .) 

m  times 

(iii) 

(A*B)C  -+ 

AC*BC 

(iv) 

(A+B) *C  , 
C* (A+B) 

-+  (A*C)  +  (B*C) 

(V) 

(A/B)  *C  . 
C*(A/B) 

-+  (A*C)/B 

(vi) 

(A/B) +C  , 
C+(A/B)  ’ 

■+  (A+(B*C))/B 

4.3  Canonical  Forms 

In  the  reduction  of  an  expression  to  a  simplified  canonical  form,  the 
following  operations  are  recursively  applied: 

(1)  Atoms  and  integers  are  labelled  as  level  2  canonical. 

(2)  Sub-expressions,  each  of  whose  principal  operands  (sub-sub 
expressions)  are  labelled  canonical  at  the  current  level,  are 
simplified  according  to  the  level  1  rules,  and  the  level  2  rules 
if  AUTSIM  is  set.  These  rules  are  repetitively  invoked  until 
they  have  no  further  application.  In  some  cases,  application 
of  the  rules  forces  de-canonicalization  of  sub -sub  expressions, 
which  must  then  be  re-simplified,  and  relabelled  as  canonical. 

(3)  Operands  of  variary  operators  are  ordered  in  one  of  two  canoni¬ 
cal  orderings,  depending  on  SET  option  E XP IN CREASE /EXPDE CREASE . 

(4)  The  sub-expression  is  labelled  as  level  1  or  level  2  canonical. 
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This  procedure  is  repeated,  working  from  the  deepest  level  of  sub¬ 
expression  outward  to  the  eventual  simplification  of  the  entire  expression. 
At  that  point  the  expression  is  in  a  unique  canonical  form,  and  will  have 
the  identical  structure  to  that  of  any  algebraically  equivalent  expression 
reducible  by  the  simplification  rules.  This  feature  is  essential  for  the 
meaningful  comparison  of  algebraic  expressions. 
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CHAPTER  5  INTERNAL  ORGANIZATION 


5.1  The  Writing  of  DIAL 

It  is  desirable  that  any  large  system  be  written  in  a  high-level 
language,  one  that  is  powerful,  fast  in  compilation,  produces  effi¬ 
cient  code,  has  good  character  manipulation  features,  and  lends  itself 
to  mnemonic  representations.  The  language  XPL  meets  these  specifica¬ 
tions  reasonably  well,  and  has  the  advantage  that  it  is  the  language 
upon  which  the  XPL  Translator  Writing  System  is  based.  Accordingly 
this  system  was  chosen  as  a  basis  for  DIAL. 

The  DIAL  grammar  was  submitted  to  the  LALR  Parse  Table  Generator 
of  W.R.  Lalonde  (6),  and  the  tables  produced,  in  the  form  of 
XPL  source  code,  were  incorporated  into  a  single  XPL  program,  consist¬ 
ing  of  both  the  DIAL  compiler  and  interpreter.  The  block  of  executable 
code  resulting  from  compilation  of  this  program  is  loaded  by  the  DIAL 
Monitor,  which  was  written  in  OS/ 360  Assembly  Language.  The  Monitor 
also  handles  the  I/O  interfacing  between  the  XPL  program  and  the 
peripheral  devices. 


5.2  The  Symbol  Table 

The  DIAL  symbol  table  is  a  binary  tree  with  variables  as  nodes, 
each  of  which  stores  the  following  information: 

(1)  Variable  name  character  string  description. 

(2)  Flag  distinguishing  between  procedure  and  data  variables. 

(3)  Data  variable:  Current  address  (block/displacement)  of 
the  value  of  variable  (0  if  no  allocation  yet  made,  representing 
atomic  value).  Procedure  variable:  Index  of  procedure  entry  on  the 
Program  Table. 

The  symbol  table  remains  accessible  during  both  compilation  and 
execution . 

Each  variable  identifier  appears  exactly  once  on  the  symbol 
table.  Multiple  values  of  (subscripted)  variables  are  stored  as  a  tree 
of  expressions  referenced  by  the  symbol  table  entry. 

A  "mouse  scan"  of  the  symbol  table  tree  produces  an  ordering  of 
variables  by  variable  name  length  or  (if  length  equal)  by  alphabetical 
order.  See  Fig.  5.1. 


. 
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*  -  Starred  elements  are  Procedure  Variables. 


Fig.  5.1  The  Symbol  Table 


5.3  The  Program  Table 

The  program  table  is  a  linked  list  which  chains  together  (a)  the 
program  procedures,  in  alphanumeric  order  of  their  identifiers  and, 

(b)  the  statements  of  each  procedure,  in  numerical  order  of  their 
labels.  In  addition,  each  statement  entry  references  the  character 
string  of  the  statement,  and  the  interpretable  block  of  DIAL  code  repre¬ 
senting  its  execution.  Fig.  5.2  indicates  the  general  form  of  the 
program  table. 
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CODE 


STATEMENTS 


To  Index  of 
Procedure  on 
Symbol  Table 


PROCEDURES 


P  - 

S  - 

C  - 


To  First 
Statement 
of  Proc. 

Index  of  Procedure  on 
Symbol  Table 
Statement  number 
Source  statement  as  a 
character  string 


Fig.  5.2  Program  Table  and  Interpretive  Code  Organization 


_ _  _  .  .. _ _  _ _ _ , _  . _ 
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5.4  Data  Representation 


Because  DIAL  was  written  in  a  high-level  language,  its  data  struc¬ 
ture  may  be  easily  modified,  involving  changes  only  to  the  limited 
number  of  small  procedures  that  actually  modify  the  data.  In  the 
current  implementation  a  data  node  occupies  two  32-bit  words: 


(a)  Integer  or  Atom 

0  8  31 


TYPE 

^  To  "brother"  node 

ADDRESS  ' - 

VALUE 

The  value  field  contains  the  integer  itself  or  the  index  of 
the  atomic  variable  on  the  symbol  table. 


(b) 


Other  Types 


TYPE 

ADDRESS  * '  ' 

ADDRESS  j 

To  "brother"  node 


To  "Son  node" 

The  possible  data  types  are  Integer,  Rational,  Atom, 
Exponent,  Multiply,  Plus,  Divide,  Variable,  Subscripted  Variable. 


A  data  address  consists  of  the  following  fields: 


8  16 


31 


BLOCK 


DISPLACEMENT 


The  block  or  page  is  a  number  that  uniquely  identifies  a  relocatable 
section  of  data,  which  may  be  in  core  or  on  disk  at  any  given  time.  A 
block  table  keeps  track  of  the  location  of  each  block  during  execution. 
The  displacement  field  gives  the  offset  of  each  data  node  from  the  top 
of  its  block. 


5.5  Data  Management 

Acquisition  of  a  data  node  results  from  a  request  for  a  node  of 
given  type  from  the  same  block  as  some  other  specified  node,  when  possi¬ 
ble.  The  specified  node  is  invariably  to  be  a  "relation"  of  the 
acquired  one.  If  no  relation  is  specified,  a  data  node  from  a  block 
only  partly  full  will  be  acquired. 


. 
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The  free  areas  of  a  block  are  linked  by  pointers,  and  each  free 
area  is  headed  by  an  area  count.  Nodes  acquired  or  freed  from  a  block 
are  inserted/removed  from  this  chain  at  its  first  link,  so  that  data 
acquisition  proceeds  on  a  last- freed,  first- acquired  basis.  In  the 
DIAL  interpreter,  a  node  is  freed  as  soon  as  it  is  no  longer  needed. 
This  scheme  ensures  (1)  that  there  will  be  no  significant  gaps  in  pro¬ 
cessing  for  massive  garbage  collections,  and  (2)  expressions  will  tend 
to  reside  wholly  on  a  single  block,  with  the  result  that  costly  page 
thrashing  will  be  avoided. 


5.6  Program  Code  Management  and  Off-Line  Program  Storage 

Blocks  of  program  code,  representing  DIAL  statements,  can  be  ren¬ 
dered  non-executable  by  deletion  or  replacement  of  the  statement.  The 
space  they  occupy  is  managed  as  a  dynamic  resource.  When  full,  the 
program  code  is  automatically  relocated  so  as  to  eliminate  blank  areas 
representing  replaced  statements,  and  the  program  table  is  updated  to 
point  correctly  to  the  code  area. 

If  the  program  code  area  is  full,  and  relocation  finds  no  blank 
areas  for  automatic  compaction,  an  error  is  flagged,  and  the  appropriate  mess¬ 
age  is  displayed.  In  this  event,  the  program  must  either  be  reduced  in 

size,  or  segmented.  In  the  latter  case,  segments  not  currently  needed 
are  stored  on  disk  through  the  SAVE/RESAVE  instruction,  and  retrieved 
when  required  by  use  of  the  LOAD  instruction.  The  user  is  responsible 
for  this  program  organization. 


5.7  Paging 

When  any  data  node  is  referenced  (by  block  and  displacement)  the 
required  block  (page)  is  brought  into  core  if  necessary,  and  the  data 
management  routine  returns  its  in-core  address.  When  a  page  fault  occurs, 
the  page  selected  for  trade-out  is  the  first  (lowest)  in  a  merit  chain 
of  the  in-core  pages.  The  merit  of  the  incoming  page  is  determined  at 
this  time,  and  it  is  inserted  into  the  merit  chain  accordingly. 

Merit  is  based  on  several  factors.  The  merit  of  the  in-core  pages 
on  the  merit-chain  decays  at  every  page  fault.  Their  new  merit  is  a 
fixed  fraction  (currently  15/16)  of  the  old.  The  merit  of  the  incoming 
page  is  given  by  the  following  formula: 


- 

? Jw 
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M  =  M 


x  T 


out 


T. 


max 


m 


T 


T. 


now 


m 


where 


M  =  Nominal  maximum  merit 
max 


TQut  =  Time  when  incoming  page  was  last  paged  out 


=  Time  when  incoming  page  was  last  paged  in 


T  =  Time  of  current  page  fault 
now  r  & 


Because  of  the  decaying  merit  of  in-core  pages,  all  of  them  will, 
in  time,  be  paged  out.  But  it  can  be  seen  that  the  incoming  page  receives 
merit  based  on  its  past  performance,  namely  time  previously  spent  in  core 
per  time  spent  both  in  and  out  of  core.  A  page  that  has  not  been  allowed 
to  remain  on  disk  for  very  long,  will  have  a  high  merit  upon  return,  and 
will  enter  the  merit  chain  accordingly. 


, 
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CHAPTER  6  DIAL  REQUIREMENTS  AND  DISTRIBUTION 
6 . 1  Requirements 

IBM  System/360  with  at  least  120K  available  for  program  use 
Card  reader  and  printer 

2314  or  2311  Direct  Access  Storage  Device 

IBM  2250  Graphics  Display  Device.  For  other  interactive  devices,  an 
interface  must  be  built  by  the  user,  and  incorporated  into  the  DIAL  monitor. 

If  interactive  capability  is  not  required,  DIAL  can  be  operated  as  a  batch 
processor,  obviating  the  need  for  a  user  terminal. 


■ 
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